OpenEdge Development:<br />Progress 4GL Reference CURRENT-LANGUAGE statement

A character-string expression that specifies a language name or a comma-separated list of language names.

This example procedure uses the CURRENT-LANGUAGE function to find the current language, prompts the user to choose a new language, and then uses the CURRENT-LANGUAGE statement to reset and display the name of the new current language:

CURRENT-LANGUAGE = `string-expression`

r-chglng.p
DEFINE VARIABLE cur-lang AS CHARACTER FORMAT "x(10)" VIEW-AS RADIO-SET RADIO-BUTTONS czech, "Czech", danish, "Danish", dutch, "Dutch", english, "English", french, "French", german, "German", hungar, "Hungarian", italian, "Italian", norweg, "Norwegian", polish, "Polish", portug, "Portuguese", swedish, "Swedish". IF CURRENT-LANGUAGE = "?" THEN cur-lang = "English". ELSE cur-lang = CURRENT-LANGUAGE. UPDATE cur-lang NO-LABELS. CURRENT-LANGUAGE = cur-lang. MESSAGE "New language is" CURRENT-LANGUAGE.

r-chglng.p

DEFINE VARIABLE cur-lang AS CHARACTER FORMAT "x(10)" VIEW-AS RADIO-SET 
    RADIO-BUTTONS czech,   "Czech",
                  danish,  "Danish",
                  dutch,   "Dutch",
                  english, "English",
                  french,  "French",
                  german,  "German",
                  hungar,  "Hungarian",
                  italian, "Italian",
                  norweg,  "Norwegian",
                  polish,  "Polish",
                  portug,  "Portuguese",
                  swedish, "Swedish".

IF CURRENT-LANGUAGE = "?"
THEN cur-lang = "English".
ELSE cur-lang = CURRENT-LANGUAGE.

UPDATE cur-lang NO-LABELS.

CURRENT-LANGUAGE = cur-lang.
MESSAGE "New language is" CURRENT-LANGUAGE.

Notes

The value of CURRENT-LANGUAGE might be a comma-separated list of language names. If so, Progress searches r-code for a text segment that matches the first language in the list. If that segment is not found, then it searches for a text segment for the next entry in the list until a segment is found.

You can initialize the CURRENT-LANGUAGE variable with the Language (-lng) parameter.

The behavior of CURRENT-LANGUAGE when one procedure calls another is as follows:

If a procedure changes the value of CURRENT-LANGUAGE, calls from the procedure to the CURRENT-LANGUAGE function return the name of the new language, but the procedure continues to use the character strings of the original language.

If the procedure then runs another procedure, when the called procedure gets control, calls from the called procedure to the CURRENT-LANGUAGE function return the name of the new language, and the called procedure uses the character strings of the new language.

When the called procedure finishes and control returns to the original procedure, calls from the original procedure to the CURRENT-LANGUAGE function return the name of the new language, but the original procedure continues to use the character strings of the original language.

CURRENT-LANGUAGE statement

Syntax

Notes

See also